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MODULE MAILSGETNEW ( 
IDENT = ‘v04-000" 


3 


MNNINININININ 2 2 2 SS SS S| SS OOOODOOOOO 


WN SO OONOULS WN $9 OONAUSWN (OVO ONOULSWN "OO ONOUS WN 


BEGIN 


i] 

i eee eee ee eee eeReReEKeeKeKHRHReH eee eeeeeeeeeeneeeeeeeeeekeneeeeeeeeneeeeeeeer 
'@ 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

it ALL RIGHTS RESERVED. 


® 

® 

® 

* 

H ® 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
tt TRANSFERRED. e 
4 ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. * 
* 

® 

® 

* 

® 

* 
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! 
1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
: :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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V03-002 BLS0246 Benn Schreiber 8-Nov-1983 | 
Move new mail count into VMSMAIL.DAT 


SODWNAVUE WN $0 ODNAUE WN $0 ODNAOULS WN (OD DNAOUE WN OOWONOU SW 
So 
o 
= 
~o 


WEBER EEE BWNWAANNWANI ns PoP NPNPNINPUNNNYPD 2 SS SS OS 


02 i eee eee ee eee Ree eRe Keeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeedeeeeeeeeeeeeeeeeene 
02 ) 
03 | 
03 !+4 
03 1 FACILITY: VAX/VMS MAIL UTILITY | 
05 i ABSTRACT: Find user's new mail count. Used by LOGINOUT. | 
e | 
3 1 ENVIRONMENT: NATIVE/USER MODE | 
03 ! AUTHOR: Benn Schreiber, CREATION DATE: 10-Jul-1983 
004 ; MODIFIED BY: 
004 i V03-004 BLS0266 Benn Schreiber 26-Jan-1984 
Ooee Correct username offset reference. 
0045 1! v03-003 BLS0260 Benn Schreiber 12-Jan-1984 | 
ps8 } Account for UAFSS_USERNAME being 32 bytes now. 
0048 
i 
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3 0051 1! 

a038 i INCLUDE FILES 

; 054 1° LIBRARY "SYSSLIBRARY:LIB'; 

; 0055 1 REQUIRE "SRC$:MAILREQ'; 

0201 LIBRARY "LIBS: MAILDEF * 

: $508 1 EXTERNAL ROUTINE 

: BSo¢ i UTILSREPORT_IO_ERROR; 'Report io error 

: 0206 1 BIND 

; 0207 1 VMSMAIL_DESC = SDESCRIPTOR(‘VMSMAIL') : $BBLOCK 

; 0208 1 SYSEXE_DESC = SDESCRIPTOR('SYSS$SYSTEM: DAT’) : $BBLOCK; 
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SKSVMSMASTER: CMAIL.SRCIJGETNEW.B32; 1 (3) 


; 66 8 4 | GLOBAL ROUTINE MAILSGET_NEW_COUNT(NEWCOUNT ,UAFREC,SYSMAIREC) = 
: 68 0211 1 ! FUNCTIONAL DESCRIPTION: 

;: w& 0 \§ 1! 

; es! 1! Return the count of new mail messages. 

: 71 0214 1! 

sy: 0215 1 ! Inputs: 

g-£ 0216 1! 

ae «| 0217 1! newcount = address of a jonguore to receive the new message count. | 
“Tee «| 0218 1! returned as -1 if the mail file is sequential, rather than isam 
; 0219 1! uafrec = address of buffer peateleons SYSUAF record for user : 
3 a bs50 : sysmairec = (optional) address of buffer containing users’ vmsmail rec. 
i) re bS5¢ 1 ! Outputs: 

: 80 0223 1! 2 

3 3 bsse i longword pointed to by newcount contains number of new messages. 
66S 0226 1 ! Routine value: 

; BG 0227 1 ; 

; 685 0228 1! 1 if success, failure code if error 

; & 0229 1! : 

; oF 0230 1! ALL errors signalled. 

; 0231 1! 

; «689 0232 1 !-- 

: 90 0233 2 BEGIN 

; 0234 2 MAP 

: 92 0235 2 NEWCOUNT : REF VECTORC,LONGI, 

: «93 0236 2 UAFREC : REF $BBLOCK, 

: 94 0237 2 SYSMAIREC : REF $BBLOCK; 

° 0238 2 

; «6496 0239 2 BUILTIN 

; 97 0240 2 NULLPARAMETER; 

; 0241 2 

: 0242 2 LOCAL 

; 100 0243 2 SYSMAIFAB : $FAB_DECL, 

: 101 0244 2 SYSMAIRAB : $RAB_DECL, 

; 102 0245 2 STATUS, 

; 103 0246 2 USEBUF : REF SBBLOCK, 

; ie S944 § SYSMAIBUF : $BBLOCKCVMD_C_USERNAME+3*NAM$C_MAXRSS); 

; 106 0249 2 NEWCOUNT(O) = 0; 

3; wr 0250 2 STATUS = TRUE; 

: 108 0251 2 

; 109 8526 IF NOT NULLPARAMETER(3) 

s; 110 025 THEN USEBUF = .SYSMAIREC 

s 399 0254 ELSE BEGIN 

3 2 0255 3 USEBUF = SYSMAIBUF; 

s 115 0256 3 ' ; , 

z «6114 0257 3 ' Need to open VMSMAIL to find new mail count 

: 115 0258 3 : 

s 116 P 0259 3 $FAB_INIT(FAB=SYSMAIF AB, 

: 117 P 0260 3 FAC=GET, 

; «118 P 0261 3 FNS=.VMSMAIL_DESCCDSC$W_LENGTH) 

: 119 P 026e 3 FNA=.VMSMAIL~DESCLDSCSA POINTERS, 

3; 120 P 0263 3 DNS=.SYSEXE_DESCCOSCS$W_CENGTH 

3 21 P 0264 3 DNA=.SYSEXE_DESC DSC$A~POINTERS, 

3; Vee 0265 3 SHR=(GET,PUT,DEL,UPD)); 


AAC 
-EXTRN UTILSREPORT. 10_ERROR 


MAILSGETNEW 1 VAX-11 Bliss-32 V4.0-742 ge 4 
| v04=00 14-Sep- DISKSVMSMASTERSEMAIL. SRCIGETNEW.B32:1° 9" (3) 
s 123 0 66 
: 126 026 SYSMAIFABLFABSV LNM MODE] = PSLSC_EXEC; 
; } ? rt: STATUS = SOPEN(FAB=SYSMAIFAB); 
: 127 P 0270 $RAB INIT (RAB=SYSMAIRAB, 
s 128 P 0271 FAB=SYSMAIFAB, 
: 129 P 0 ie AC=KEY, 
: 130 P 027 ROP=(RLK,NLK), 
> Sa P 0274 KRF= 
; 13 P 0275 KS7= VMD_C USERNAME 
: 13 P 0 18 KBF =SYSMATBU 
3: 134 Pp 07 RBF=SYSMAI 1BUF 
: 135 P 0278 USZ=VMD_C unseat _MAXRSS, 
; 136 0279 UBF =SYSMATBUF ) 
: 137 0280 
; 138 0281 3 IF .STATUS . 
3 139 028¢ 3 THEN STATUS = SCONNECT(RAB=SYSMAIRAB); 
: 140 0283 3 
: 141 0284 3 IF NOT .STATUS 
3: 142 0285 3 AND .STATUS EQL RMS$_C 
: 143 0286 4 THEN STATUS = (SYSMAIFABCF ABSW_ GBC) = 
: 146 0287 3 SCONES T (RAB= =SYSMAIRAB)); 
s 145 0288 3 ! 
3 196 £394 3 Read the user's VMSMAIL record 
: 148 0291 3 CHSCOPY (MINU(UAF$S_USERNAME , ypc USERNAME) ,UAFRECCUAF$T_USERNAME], 
3 149 0292 3 vAp_¢c C_USERNAME , SYSMAIBUFJ; 
3; 150 0293 3 SYSMAIBUF CVRD _B_DIRLNGJ = 0; 
> (151 0294 3 IF .STA 
3; 152 0295 3 TH hen URTA TUS = $GET(RAB=SYSMAIRAB) ; 
: 153 0g96 3 $CLOSE (FAB=SYSMAIF AB) ; 
; 154 0297 2 END; 
s 55 0298 2 
: 156 0299 2 IF .STATUS 
: 137 0300 3 THEN NEWCOUNTCO] = .SYSMAIBUFCVMD_W_MAIL); 
: 159 030¢ 2 RETURN .STATUS 
; 160 0303 1 END; 
.TITLE MAILSGETNEW 
IDENT \vV04-000\ 
-PSECT $CODES,NOWRT,2 
4C 49 41 4D 53 4D 56 00000 P.AAB: .ASCII \VMSMAIL\ : 
00007 -BLKB 1 
00000007 00008 P.AAA: .LONG 7 ; 
00000000" 0000C -ADDRESS P.AAB : 
54 41 44 2E€ 3A 4D 45 54 53 59 53 26 53 59 53 90016 P.AAD: ASCII \sY SSSYSTEM: .DAT\ ; 
QO00000F 00020 P.AAC: LONG 15 3 
00000000" 00024 “ADDRESS P.AAD : 
VMSMAIL_DESC= P. AAA 
SYSEXE_BESC= 


16 
MAILSGE TNEW 15. Sep-19 :53:1 VAX-11 Bliss-32 V4.0-742 e 5§5 
oe Ve-Sep-1984 12:42:18 DI SKSVMMASTERS EMAIL «SRCIGETNEW.B32;1°%° (35 
.EXTRN SYSSOPEN, SYSSCONNECT 
SEXTRN SYSSGET, SYSSCLOSE 
01FC 00000 ENTRY MAILSGET_ NEW_COUNT, Save R2,R3,R4,R5,R6,R7,-; 0209 
58 000000006 00 9€ 00002 MOVAB SYSSCONNECT, RB : 
57 D8 AF 9E 90009 MOVAB VMSMAIL_DESC+4, R7 : 
5E FCSO «6 CE_-—«s«9E:-:0000D MOVAB -944(SPY, SP : 
046 BC D4 90012 CLRL  @NEWCOUNT + 0249 
56 01 DO 0001 MOVL #1, STATUS : 0250 
03 6C 91 00018 CMPB (AP), #3 : 0252 
OC 1F 00018 BLSSU : 
0c AC D5 0001D TSTL 12 (AP) : 
07 13 90020 BEQL =s«1$ : 
50 0c AC DO 00022 MOVL § SYSMAIREC, USEBUF > 0253 
00c8 31 00026 BRW 5$ ; 
50 6E 9E 00029 1$: MOVAB SYSMAIBUF, USEBUF + 0255 
0050 8F 00 6E a 00 2¢ b00¢¢ MOVCS #0, (SP), #0, #80, SRMS_PTR + 0265 
BO AD 5003 8F BO 00035 MOVW #20483, $RMS_PTR : 
C6 AD OFO2 8F BO 00038 MOVW $RMS_PTR+22 : 
CF AD 02 90 00041 MOVB #2, $RMS_PTR+31 ; 
DC AD 67 DO 00045 MOVL VMSMAIL BEscea. SRMS_PTR+44 : 
EO AD 18 A? DO 00049 MOVL SYSEXE_BESC+4, SRMS_PTR+48 ; 
£4 AD FC A? 90 OO04E MOVB -VMSMAIC_DESC, $RMS_PTR+52 : 
—E5 AD 14 a7? 90 0005 MOVB ySEXE DE BESC, SRMS_PTR+53 3 
FA AD 02 00 01 FO 00058 INSV p #2, SYSMATFAB+74 > 0267 
BO AD 9F 0005E PUSHAB SY AFAR’ : 0268 
000000006 00 01 FB 00061 CALLS #1, SYSSOPEN : 
56 50 DO 00068 MOVL R ATUS : 
0044 8F 00 6E 00 2C 0006B MOVCS #0. (SP), #0, #68, SRMS PTR ; 0279 
FF6C CD 00072 : 
FF6C CD 4401 8F B80 00075 MOVW #17409, $SRMS_PTR : 
FF70 CD 00180000 8F pO O007C MOVL #1572864, $RAS_PTR+4 : 
BA AD 01 90 00085 MOVB #1, $RMS PT Re +30 : 
8C AD 0341 8F BO 00089 MOVW #833, $RAS_PTR+32 : 
90 AD 6E 9E O008F MOVAB SYSMAIBUF, “SRS. PTR+36 : 
94 AD 6E 9E 00093 MOVAB SYSMAIBUF, $RMS~PTR+40 : 
9C AD 6— 9E 00097 MOVAB SYSMAIBUF, a PTR+48 3 
AO AD 1F 90 0009B MOVB #31, $RMS_PTR+5 : 
AB AD BO AD 9E 0009F MOVAB SYSMAIFAB; SAMS PTR+60 : 
0D 56 £9 OOOA4 BC ‘STATUS, 2$ > 0281 
FF6C CD 9F OOOA7 PUSHAB SYSMAIRAB : 0282 
68 o1 FB OO00AB CALLS #1, SYSSCONNECT : 
56 0 DO OOOAE MOVL RO. STA ys : 
16 56 €8 00081 BLBS § STATUS, + 0284 
0001C14C BF 56 D1 000B4 2$: CMPL TATUS, #115020 > 0285 
0D 12 00088 BNEQ : 
F8 AD B4 OO00BD CLRW SYSMAIFAB+72 > 0286 
FF6C CD 9F 000C0 PUSHAB SYSMAIRAB : 0287 
68 01 FB 000C4 CALLS #1, SYSS$CONNECT : 
Y3 50 D0 000C7 MOVL TUS ; 
50 08 AC DO OOOCA 3s: MOVL UA AF REC RO > 0291 
6E 04 AO 1F ¢8 00¢ MOVC3 bind) SYSMAIBUF : 
41 AE 94 000D CLRB co shaip +65 : 0293 
OE 56 £9 0006 BLBC STATUS us > 0294 
FF6C CD 9F 00009 PUSHAB SYSMAIRAB > 0295 


f 
66-Sep-1984 :53:1 VAX-11 Bliss-32 V4.0-742 Page 6 
£- 2900-138 00:33:18 DISKSVMSMASTER: CMAIL.SRCJGETNEW.B32;1 . (3) 


MAILSGETNEW 1 
v04= 1 
000000006 90 Qi FB 00DD CALLS #1, SYS$GET ; 
0 : DOE, MOVL RO. STATUS : 
BO AD 9F OOOE7 4$: PUSHAB SYSMAIFAB + 0296 
000000006 00 01 FB OOOEA CALLS #1, SYSSCLOSE 
05 56 £9 OOOF1 5$: BLBC _—« STATUS, : 0299 
04 BC 21 AE 3C OO0F4 MOVZWL SYSMAIBUF+33, @NEWCOUNT ; 0300 
50 56 DO O00F9 68: MOVL STATUS, RO : 0302 
04 OO00FC RET + 0303 


; Routine Size: 253 bytes, Routine Base: S$CODE$ + 0028 


sae IEREcHOR BSE Siadiabta 
; 162 0304 0 END ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 293 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
rg etal Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
RRSSESUARESESLELUERLURANTBHP uses) BR BM BRB 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:GETNEW/OBJ=OBJ$:GETNEW MSRC$:GETNEW/UPDATE=(ENH$: GE TNEW) 
; Size: 253 code + 40 data bytes 
; Run Time: 00:07. ‘ 


; Sloeend Time: 00:41 

; Lines/CPU Min: igs’ 
; Lexemes/CPU-Min: 47139 
: pee Used: 138 pages 
; Compilation Complete 
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